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15 REMark :: 

Hé oui, voici le deuxième numéro de QL_DOC, le seul neusletter FRANCOPHONE en 
fnérique du nord consacré uniquement ou QL! IL fout du courage pour vouloir acc- 
omplir La tâche de publier REGULIEREMENT un bulletin d'informations pour le Al. 
Nous seulement QL_DOC ne s'intéresse qu'au OL, qui est, il fout se l'avouer, pas 
L'ordinateur le plus répondu par les temps qui court, mais il est écrit en 
FRANCAIS ce qui rend "presque" impossible la pénération chez les QLs hors-QUEBEC 
et les QLs américains. Mais enfin, si on est marginal, on est marginal jusqu'au 
bout ( de souffle 171), 


Dons ce numéro, on trouve un article qui décrit la commande BEEP du SUPERBASIC. 
Egalement, une explication de l'organisation de la nésoire-écron du QL. Et 
enfin, un logiciel pour inpriner de jolis étiquettes pour vos disquettes bour- 
rées de petits programmes. 


N'hésitez pas à envoyez du matériel à QL_DOC, car vous possédez peut-être la ré- 
ponse à une question qu'un autre lecteur se pose... 
A la prochaine, 
Real-d 


QL_DOC est réalisé avec l'aide du logiciel FRONT PAGE EXTRA de GAP SOFTURRE, 
L'impression se fait lentement aais surement sur imprimonte STAR NX-10, 
Rédacteur: Réal Gagnon , 4878 Henri-Julien , Montréal Québec , CANADA HT Æi 
6L_DOC parait au 2 mois. L'abonnement coûte $ 18.88 (6 nos, 1 mm). 

Vos commentaires, questions, articles, programmes sont appréciós! 


-A 


iria CUTU] 


{ Le courrier des lecteurs ) 


est équipé d'une ROM JSU (PRINT VERS) .Jls ont sans doute vite découvert aussi, 
conne noi, que mis a part la possibilité de connecter le QL à une TU du type 
employée en Amérique du Nord, la ROM JSU n'apportait que des problèmes de 
compatibilités avec beaucoup de programes (SIGN DESIGNER, CRDPAK, CRAPHIGL, 
FRONT PAGE EXTRA?) ETC...) «Il existe une solution (drastique?) ù ce problème: 
changer de ROM. En effet SHARP's fournit une ROM qui remplace les deux ROMs du 
QL en version JSU ou JS. L'avantage de changer JSU -> JSU est que la 
consommation de courant du QL diminue cor il n'y a plus qu'une ROM qui consomme 
(+- 28%). En plus de cet avantage, si vous changez pour une ROM JS, votre 
ordinateur devient compatible avec tout ce qui se produit de logiciels en 
fingleterre.Cependant, un nouveau problème pointe à l'horizon: vos propres 
programmes que vous ovez créés sur ROM JSU sont maintenant incompatibles avec 
votre ROM JS! En fait, j'exagère un peu: seulement ceux faisant appel à des 
commandes graphiques. En effet le problème de compatibilité provient de la 
comsonde SCALE, ou plus exactement du ratio de l'axe des y à l'axe des x employé 
par cette commande et qui diffère d'une RON à l'autre.Bref, si vous voulez 
éviter d'avoir à retaper des sections complètes de vos programmes, utiliser le 
truc suivant: faites varier les pixels x de vos commandes graphiques (POINT, 
LINE...) à l'aide d'une variable, disons “y”. IL suffit de savoir la valeur à 
donner à "v": pour passer de JSU à JS, cette valeur est 1,1778. Donc, por 
exemple, la commande LINE x;y TO xi;ul devient LINE xtu;u TO xitvsul Par contre 
si vous avez une TU et que vous êtes obligé de conserver la ROM JSU, vous aurez 
souvent des problèmes quand vous tapez des Listings de revues anglaises, 
Enployez le même truc, mais cette fois donnez la valeur .8498 ù "v" J'espère 
avoir contribué à jeter un peu de lumière sur un problème qui n'a fait sar... 
Jean-Claude Touzin, c.p. 41, La Sarre, P.Q. J9Z 2x4 


Voici une soultion intéressante à un sacré problème. J'ai eu l'occasion de voir 
un de ces bidules chez ERENON ELECTRONIQUE, mis celle-ci vernit de CURRY COMP. 
II y wait bien lo RON JS mois en plus sur le sèse EPROM le SUPER TODLEIT 11. 
Hobituel lesent, les Rs du GL se présente sous lo forme de Z1128 G2kxähito), 
mis sur ce sachin nous retrowons un 21512 Ghkxbits), ce qui explique pour- 
quoi nous avons autant de ploce disponible. Buont à l"éconosie d'énergie dont 
Jeon-Ciaude fait mention, elle s'explique du fait que c'est lo version CNE du 
7512 qui est utilisée, le 2512. 


Reale 


L'ECRAN du SINCLAIR OL 


L'écran du QL occupe 32 K-octets de la nésoire RAN. C'est en partie pour 
cette raison que sur un QL standard de 128K, il n'y a que 88K disponible 
à la programmation, une partie étant réservée pour les variables systèmes 
et à la ménoire-écron. 


La ménoire-écron débute à l'adresse 131872 décimale (28099 hex) et pro- 
gresse pendant 32K en mot de 16 bits jusqu'à l'adresse 163840 (28089 hex). 


“Pour sawer le contenu d'un écran, nous pouvons faire en SUPERBASIC 
SBYTES x000x_dessin_picy131872,32768 
SBYTES xxxx_dessin_pic;2^i7,2^15 

Contrairement ou 2868/SPRECTRUM, l'écron du OL est continu, c'est-à-dire 

qu'elle débute dans le coin supérieur gauche et se termine dans le coin 

inférieur droit, 

Il y a deux modes graphiques, 512x256(4 couleurs) et 256x256(8 couleurs). 

1- MODE 512x256 

Ce mode graphique offre une résolution de 512 pixels horizontales et 256 


verticales, avec une possibilité de 4 couleurs, Choque mot de 16 bits 
détermine la couleur de 8 pixels à l'écron. 


VUVUVUVU__ DETET HAT (puir) 
RRRRRRRR OCTET BRS 
pixel 1_11 U > vert 
pixel 2 l R > rouge 
bit bitO 
Composition d'un mot 
Gode 512250) 


Ainsi si nous voulons le 4ième pixel rouge, la bit 5 de l'octet haut doit 
être à “0” et celle de l'octet bas à "1”,Voici les combinaisons possibles 
pour les 4 couleurs. 


2- MODE 256x256 


Ce node donne une résolution de 256 pixels horizontales et 256 verticales. 
Il y a maintenant 8 couleurs disponibles. Un not de 16 bits de la mémoire- 
écron affecte 4 pixels. 


L'écron du SINCLAIR EL (suite aa: ) 


UFUFUFUF OCTET HAUT (mir) 
RERBRERE OCTET BRS Cimpoin) 
CO Y -> vert 
pixel 1 _1 | F -> flash 
pixel 2 | R -> rouge 
^ $ B -> bleu 
bit? bit 
«Composition d'un mot 
(ode 206x200) 


Voici les combinaisons possibles pour les 8 couleurs, 


NOTE: Pour chaque pixel, on met la bit FLASH à "i" si on veut qu'il flash! 
Donc chaque not contrôle 4 pixels. Si nous voulons le premier pixel bleu, 
le second rouge, le troisième magenta et le quatrième vert, nous aurons: 


Dctet hout DO O0 00 10 -> 2 décimie 
Octet bos OÙ 10 11 00 -> 108 décimole 
bl m m ve 


#Pour joindre les 2 octets, on procède de la façon suivante: 


Pultiplie l'octet hout par 206 221 ZÆ = 512 
Additiome le résultat avec l'octet bas -> 512 + 108 = 620 


Faites POKEY 217,628 pour vérifier les 4 premiers pixels de la nénoire- 
écron. N'oubliez pas il faut ètre en mode TU! 


3-APPLICATION 


Comme application, vous une fonction qui est l'équivalent la fonction 
POINT du 2868/SPECTRUM, Elle retourne la couleur d'un point à |'écran. 
- Il y a une version pour choque node vidéo. 
- La procédure prend en considération l'écran en entier, 
la référence étant le coin inférieur gauche (4,8), Içi 
les VINDONs ne sont pas pris en considération. 


tFonction pour MODE 256x256 


DEFine FuNction color_l (su) 
LOCal col ne haut bas 
nen = 163712 + (x DIU 8) 2-yki28 
hout=PEEK (men) DIU (4*(3-(x DIV DNO 4)) 
bas=PEEK (menti) DIU (47(3-x DIV ADNOD 4)) 
col=bas && 3 
col=col+íhaut && D #2 
col=col+(haut && 1) #4 


<- x,u sent les coordonnées 


<- trouve l'adresse 
€- sépare Les 2 bits 

c t au pizel 
€- vérifie bit BLEU & FORCE 
€- vérifie bit VERT 
€- vérifie bit FLASI 


RETurn col € retourne La couleur 
END DEFine 
Les valeurs possibles sont : 8 NOIR 1 BLEU 
2 ROUGE 3 MAGENTA 
4 VERT 5 CYAN 
6 JAUNE 7 BLANC 


fonction pour MODE 512x256 


DEF ine Fulction color_h x,y) 
LOCal col mem haut ¿bos 
nen=163712+(x DIV 8)12-y1128 
hout=PEEK (men) DIU (2*QG-(x MOD 8)) 
bas=PEEK menti) DIU (2*(7-(x MOD 8)2) 


<- x,y sont Les coordonnées 


<- trouve l'adresse 
C- sépare La bit qui représente le 


pixel 


col= bas && 1 <4- vérifie la bit ROWE 
col= col+Ghaut && 1)#2 €- vérifie la bit VERT 
RETurn col#2 <- retourne la couleur 
END DEFine 
Les valeurs possibles sont : G NOIR 2 ROUGE 
4 VERT 6 BLANC 


On utilise la fonction de la façon suivante: 


-si on veut vérifier le pixel à la position 198,54 


nous faisons couleur=col_h(168,58) 


si nous sommes en node 512x256, sinon nous faisons 


couleur=col_1 (188,58) 
pour le mode 256x256. 


ss [AE 


DLO_BAS est un programme qui vous permet de faire de jolies étiquettes pour vos 
disquettes. En principe, le prograase fonctionne avec un OL avec de FLPs mais il 
peut être facilement modifié pour fonctionner seulement avec des drives. Le 
problème avec ceux-çi est qu'ils sont trop petits pour pouvoir coller une 
étiquette! Mais enfin, pour la modification, changez les “FLPI" pour des “HOVI” 
aux lignes suivantes: 185,339,349,359,369,578,758. 


Pour l'impression, votre imprimante doit être EPSON compatible. Pour mettre le 
plus d'informations possibles sur l'étiquette, nous mettons l'imprigonte en mode 
ELITE, COMPRESSE, SUPERSCRIPT, avec un interligne de 16/216". 


Voici les codes de contrôle nécessaires: 


ELITE -> ESC “H” 

COMPRESSE -> CHRIS) 
SUPERSCRIPT -> ESC "98" 
INTERLIGNE -> ESC "3" CHR$C16) 


Vérifiez si votre votre imprisonte supporte ces codes... 


Pour dénorrer le programme faites LRUN xxxx_DLO_BAS. 


La première question est pour déterminer sur quel “DEVICE” vous voulez faire un 
“DIRECTORY”. Si on fait l'étiquette de la disquette présente dons FLPi_, on 
écrit FLP1_. 


Puis on peut mettre un coamentaire ou un titre, sinon on fait simplerent ENTER. 


Le DIRECTORY sera alors classé en ordre alphabétique, Pour imprimer l'étiquette, 
on fait LISTE PRT. 


NOTE: 
Les procédures SORT et GSORT, ont pour source le magazine SINCLAIR BL WORLD. 


GAMES 

4537/720 sectors 
BATNAV1_SET BATNAV2_SET BATNAV_BOT batnav CARTES_SET  CHIFLET_BAS 
MASTERMIND_ MEMORY_BAS  MEMDRY_BOT  MORPION_BAS MORP_CASE_D MORP_TABL D 
NIM_BOT PENDU_BAS QLOVIS_BAS QLOVIS_BOT GLOVIS_SET 


NIM 
YAHTZEE_BAS 


100 REMark disk label organizer .5 par bA6-086 MTL 
110: 

120 WINDOW 512,256,0,0 

130 BORDER 3,45 

140 PAPER 0: INK 7 


150 CLS 
160 PRINT “IMPORTANT: La disquette dans FLPI_ ne doit pas être protégée" 
170 PRINT " en ecriture. "\\ 


180 INPUT * "Directory" de quel "Device" (ex. flpi_ mdvi_) ? ’;devé 
185 IF devé="":dev$="f1p# > 
190 INPUT ‘Un titre général ou commentaire ? "¡titres 


200 read_dir :¿REMark lecture du directory 
210 display files ¿REMark montre les fichiers 
220 sort fi$ ¿REMark classé en ordre alphabetique 
230 display files :REMark montre les fichiers en ordre 


240 BEEP 1000,10 

250 CSIZE#0, 1,0 

260 BORDER+0, 1,7 

270 PRINTRO,*FAITES LISTE PRT -> pour imprimer’ 
280 CS12E#0,0,0 

290 STOP 

300 : 

310 : 

320 DEFine PROCedure read_dir 

330 DELETE +1pi_diri 

340 OPEN_NEWRS,tipi_dirl 

350 DIR#5, dev 

360 CLOSE#S: OPEN#S,fipl diri 


370 : 

380 REMark trouve l'espace prise sur disque 
390 : 

400 CLS 


410 INPUT#3, fr _sp$ 
420 PRINT fr_sp$ 


430 : 

440 REMark compte les fichiers et trouve le plus long 

450 : 

460 INPUTES, dunmy$ :REMark espace vide 

470 nfiles=0 | 
480 Lmax=0 | 
490 REPeat loop | | 
500 INPUT #5,a$ 

310 IF EOF(#5):EXIT loop 

520 1fi=LEN(a$) 

330 IF 1fiolmax:lmax=lfi 

540 nfiles=nfilesti 6 

330 END REPeat loop 


560 PRINT ‘il y a '¡nfiles;* fichiers sur cette disquette!’ 


570 CLOSERS:OPENKS, flpi_dirl 
580 INPUTES, dunny$: INPUTES, dumay$ 
590 : 


:REMark espace disponible + vide 


600 REMark creation du tableau contenant les fichiers... 


810: 

420 DIN fi$ínfiles,lmax) 
530 : 

240 REMark lecture des fichiers 
650 : 

860 i=i 

570 REPeat loop 

580 INPUTRS, a$ 

590 IF EOF(45):EXIT loop+END IF 
700 IF aiy diri’ 

710  ti$(i)=a$ 

720 iziti 

730 ENDIF 

740 END REPeat loop 

750 CLOSERS:DELETE fipi_dirl 
760 END DEFine 

770 : 

780 : 

790 DEFine PROCedure display files 
800 f=i 

810 PRINT 

820 FOR i=1 TO INT(nfiles/3) 
830 FOR 11=0,15,30,45,60 


840 PRINT TO 11,+19(+); 
830 +=f+1 

860 END FOR ii 

870 PRINT 

880 END FOR i 

890  1=0 


900 FOR i=f TO ntiles 

910 PRINT TO 1,f1$(1); 
920 1=1+15 

930 END FOR i 

940 END DEFine 

950 : 

960 : 


970 REMark procedures sort & gsort, source SINCLAIR AL WORLD! 


980 : 

990 DEFine PROCedure sort (array) 

1000 PRINT \\ 

1010 INK 4 

1020 PRINT "Je fais le classement... MA 
1030 INK 7 


1040 


gsort array, 1,DIMN(array) 


1050 END DEFine sort 


1060 : 


1070 DEFine PROCedure gsort larray,bottom,top) 


1080 
1090 
1100 


LOCal loop,lo,hi,pointer 
lo=bottom:hi=top 
pointer=botton 


1110 REPeat loop 


1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 


IF lo>=hi:EX1T loop 
IF array(lo) »array(hi) 
temp$=array (10) 
array(lo)=array(hi) 
array(hi)=temp$ 
IF pointer=lo 
lo=lo+tispointer=hi 
ELSE 
hi=hi-1:pointer=10 
END IF 
ELSE 
IF pointer=10 
hi=hi-1 
ELSE 
lo=loti 
END IF 
END IF 


1290 END REPeat loop 


1300 IF ABS(top-bottom)<2 THEN RETurn 

1310  gsort array, bottom, pointer-1 

1320  gsort array, pointer+l, top 

1330 END DEFine gsort 

1340 : 

1350 : 

1360 DEFine PROCedure liste prt 

1370  1$=? | 

1380  OPEN#5, seri 

1390 : 

1400 REMark imprimante ->ELITE,COMPRESSE, SUPERSCRIPT, interligne 14/214" 
1410 : 

1420  PRINT#S,CHR$ (27) 3 "M"; CHR$ (19): CHR$ (27): "SO": CHRS (27); "3"; CHRS (16); 
1430  PRINT#S,CHR$(27)1"Wi'ititreé\fr sp$:CHR$ (27); WO? :REMark large on/off 
1440  nbr col=é 

1450 n_lignes=INT(nfiles/nbr col) 

1460 FOR ligne=0 TO n_ lignes 

1470 FOR colonne=1 TO nbr_col 

1480 IF ((ligneánbr_col)+colonne)+nfiles:EXIT ligne 

1490 long_f=LEN(fi$((lignegnbr_col)+colonne)) 

1500 IF long_f}12 

1505 t$=fi$(((lignełnbr_col)+colonne), 1 TO 11) 


1510 
1520 
1330 
1540 
1550 
1560 
1370 
1580 
1390 


ELSE 
+té=ti$((lignefnbr_col)+colonne) 
END IF 
1_f=13-LEN(FS) 
PRINT $5,£5;15(1 TO 1_f); 
END FOR colonne 
PRINTES 
END FOR ligne 
PRINTES, CHRE (27) 3 "EY MA CLOSERS 


1600 END DEFine 


1610 : 


1620 DEFine PROCedure update 
1630 DELETE fipi dlo bas 
1640 SAVE fipi dlo bas 

1550 END DEFine 


BEEP BEEP yeah! 


La syntaxe de la commande BEEP est: 


BEEP durée.pitch_ospitch_b,grad_x,9rad_y;urop;fuzz,randon 
1* DUREE 
Valeurs possibles : 8 + 32767 


Chaque unité représente 1/72 de seconde, la valeur 32767 rprésente 2.36 secondes 
et 8 signifie que le son répété à l'infini, 


2* PITCH_A 
Valeurs possibles : 9 + 205 


C'est le son proprement dit. Mais le problème est que le son produit est en 
complexe relation avec sa durée. Il n'est pus question de dire que La note FA 
sera toujours la même valeur. Un PITCH de 1 est bas et un de 255 est haut. 


3* PITCH_B 
Valeurs possibles : 8 + 255 


C'est le son final vers où le PITCH va se rendre, Mais avant d'aller plus loin, 
voyons les 2 autres paramètres! 


4* CRAD_X 
Valeurs possibles : -32768 + -32767 


Indique le temps de transition que le son prend pour passer de PITCH_A à 
PITCH_B, en augmentant (ou disinuant) de CRAD_Y. 


5* GRADY 
Valeurs possibles : -8 + 7 


Indique de combien on va augmenter à chaque trensition pour atteindre PITCH_B. 


EXEMPLE: BEEP 8,10,20,188,2 


8 + le son se répète à l'infini 

18 + c'est le son initial 

2 + c'est le son final 

199 + c'est le temps de transition, 198% 1/72 de seconde 
2 + on augmente de 2 après chaque transition 


„içi on commence à 18 

.on attend 198 unités 

.on augmente de 2, c'est-à-dire à 12 

on attend 188 unités 

„on augmente de 2, c'est-à-dire à 14 

et on continue jusqu'au PITCH égale à 28 

„après on recommence, mais dons le sens inverse en soustrayant 2, jusqu'à 18, 


6* URAP 
Valeurs possibles : 8 + 15 


Comme nous avons vu précedemment, on part de PITCH A, on monte jusqu'à PITCH_B 
pour redescendre par la suite vers PITCH_A. URAP peut faire changer tout ça! 


Si URAP égale à 1, nous aurons la situation suivante, 


. nous partons de PITCH_A, on monte jusqu'à PITCH_B. 
. à PITCH_B, on recommence à PITCH A pour remonter vers  PITCH_B, c'est le 


WRAP. 

. une fois rendu à PITCH_B, on redescend vers PITCH A comme 

. Guparavant. mais voilà lorsque rendu à PITCH_A, on remonte 

. à PITCH_B sans attendre pour redescendre vers PITCHA, pour un WRAP. Est-ce 


clair 21? 


note: si URAP égale 15, on WRAP tout le temps. 


exemple graphique 


| l 
pitch 
to 1 VOL B 


41 


7° FUZZ 

Valeurs possibles : 8 4 15 
8* RANDOM 

Valeurs possibles : 9 + 15 


FUZZ ajoute un élément aléatoire ou PITCH. 
Tandis que RANDOM ajoute un élément aléatoire qu GRRD_Y. 


RE E 
EXEMPLE DE L'UTILISATION DE LA COMANDE BEEP 


RAYON DE LA MORT 
ALERTE CENERALE 
AUTO BE COURSE 
POLICE (frencaise) 
PIECE ALEATOIRE 
REVEILLE MATIN 
LASER 


BEEP 8529951 520811 351839 
BEEP 0,233,1,208,-1,5 

BEEP 8,109,259,1998,-1 12,18,8 
BEEP 0,38,37 ,9898 ,7 ,8 9,0 
BEEP 0,1,1,4589,0,5,8,9 

BEEP 8,8,67,475 

BEEP 6,8,12,43,1,8,8,0 


Pour mettre le son a OFF, on fait simplement BEEP avec aucun paromètre! 


m. 


EFFETS SFECIAUX 


100 REMark effets speciaux 

110 MODE 8 

120 WINDOW 512,256,0, 0:PAPER 0: INK 0 
130 CLS 

140 REPeat loop 


130 
160 
170 
180 
190 
200 
210 
220 
230 
235 
240 
250 
260 


WINDOW 250,200,150,10: BORDER 1,7 
PAPER 2:CLS 
PRINT AMA 
CSIZE 1,0 
PRINT "DEMONSTRATION "Y"de * 
PRINT "l’utilisation"\"de la" 
PRINT "commande RECOL" 

CSIZE 0,0 
PRINT \\\"Appuyez une touche!" 
CSIZE 2,1 
PAUSE 100 

#x 0,718 

fx 748,0 


270 END REPeat loop 


290 DEFine PROCedure #x(a,b) 

300 IF acb:pas=1:ELSE pas=-1 

310 FOR isa TO b STEP pas 

320 BORDER i-(b AND pas=-1),1+1 
330  c=i MOD 7 

331 REMark BEEP 0,100,250,1,8 
332 : 

340 RECOL c,c,c,c,c,c,c,c 

345 : 

347 BEEP 

350 END FOR i 

360 END DEFine 


